From: Andreas Schwab <schwab@suse.de>
Date: Thu, 8 Jan 2004 00:15:52 +0000 (+0000)
Subject: (print_preprocess) <case Lisp_Vectorlike>: Only mask
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~24539
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e6ba2c79d96c467347d406cb52c1d6213722d7e2;p=emacs.git

(print_preprocess) <case Lisp_Vectorlike>: Only mask
size if PSEUDOVECTOR_FLAG is set.
---

diff --git a/src/print.c b/src/print.c
index 3069f732829..597345c129c 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1342,7 +1342,9 @@ print_preprocess (obj)
 	  goto loop;
 
 	case Lisp_Vectorlike:
-	  size = XVECTOR (obj)->size & PSEUDOVECTOR_SIZE_MASK;
+	  size = XVECTOR (obj)->size;
+	  if (size & PSEUDOVECTOR_FLAG)
+	    size &= PSEUDOVECTOR_SIZE_MASK;
 	  for (i = 0; i < size; i++)
 	    print_preprocess (XVECTOR (obj)->contents[i]);
 	  break;